perm filename PAXDB.FAI[TMP,LCS] blob sn#130161 filedate 1974-11-13 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		ENTRY PAC,UNPAC
C00003 ENDMK
CāŠ—;
	ENTRY PAC,UNPAC
PAC:	0		;CALL PAC(PW,AR)
	HRRZ 1,1(16)
	ADDI 1,2
	HRR 2,@1	;SIZE IS 12 BITS
	LSHC 2,-16
	SOJ 1,
	HRR 2,@1
	LSHC 2,-13
	SOJ 1,
	HRR 2,@1
	LSHC 2,-13
	MOVEM 3,@0(16)
	JRA 16,2(16)
UNPAC:	0		;CALL UNPAC(PW,AR)
	HRRZ 1,1(16)
	ADDI 1,2
	MOVE 2,@0(16)
	LSHC 2,-16
	ASH 3,-26
	MOVEM 3,@1
	SOJ 1,
	LSHC 2,-13
	ASH 3,-31
	MOVEM 3,@1
	SOJ 1,
	LSHC 2,-13
	ASH 3,-31
	MOVEM 3,@1
	JRA 16,2(16)
	END